home *** CD-ROM | disk | FTP | other *** search
/ Haight-Ashbury in the Sixties / Haight-Ashbury in the Sixties (1996)(Rockument)(Disc 1 of 2)[Mac-PC].iso / mac / MAIN / TUNEIN / TUNEIN01.DIR / 00113_Script_113 < prev    next >
Text File  |  1995-06-01  |  557b  |  21 lines
  1. on mouseDown
  2.   global thisArtwork, thisLine, lastArtwork
  3.   set thisLine = the mouseLine
  4.   set thisArtwork = line thisLine of field "Oracle Artwork"
  5.   if line thisLine of field "Oracle Artwork"  = "" then
  6.     beep
  7.     exit
  8.   end if
  9.   if line thisLine of field "Oracle Artwork"  = "╫" then
  10.     beep
  11.     exit
  12.   end if
  13.   if thisLine = -1 then
  14.     exit
  15.   else
  16.     hilite line thisLine of field "Oracle Artwork"
  17.     cursor 4
  18.     go to frame (line thisLine of field ("oracle artwork/"&lastArtwork&" order")) of movie "ARTWORK.DIR"
  19.   end if
  20. end
  21.